home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / maillabl.zip / DEMOMAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-14  |  2KB  |  88 lines
  1. unit Demomain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, DBTables, DB, Maillbl, ExtCtrls;
  8.  
  9. type
  10.   TDemoMainDlg = class(TForm)
  11.     Panel1: TPanel;
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     MailLabel1: TMailLabel;
  15.     Table1CustNo: TFloatField;
  16.     Table1Company: TStringField;
  17.     Table1Addr1: TStringField;
  18.     Table1Addr2: TStringField;
  19.     Table1City: TStringField;
  20.     Table1State: TStringField;
  21.     Table1Zip: TStringField;
  22.     Table1Country: TStringField;
  23.     Table1Phone: TStringField;
  24.     Table1FAX: TStringField;
  25.     Table1TaxRate: TFloatField;
  26.     Table1Contact: TStringField;
  27.     Table1LastInvoiceDate: TDateTimeField;
  28.     Table1Attention: TStringField;
  29.     Panel2: TPanel;
  30.     bbtnDefineLabels: TBitBtn;
  31.     bbtnFont: TBitBtn;
  32.     bbtnPrint: TBitBtn;
  33.     bbtnClose: TBitBtn;
  34.     FontDialog1: TFontDialog;
  35.     PrintDialog1: TPrintDialog;
  36.     procedure Table1CalcFields(DataSet: TDataset);
  37.     procedure bbtnDefineLabelsClick(Sender: TObject);
  38.     procedure FormActivate(Sender: TObject);
  39.     procedure bbtnFontClick(Sender: TObject);
  40.     procedure bbtnPrintClick(Sender: TObject);
  41.     procedure bbtnCloseClick(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   DemoMainDlg: TDemoMainDlg;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. procedure TDemoMainDlg.Table1CalcFields(DataSet: TDataset);
  56. begin
  57.     Table1Attention.AsString := 'Attn: '+Table1Contact.AsString;
  58. end;
  59.  
  60. procedure TDemoMainDlg.bbtnDefineLabelsClick(Sender: TObject);
  61. begin
  62.     MailLabel1.LabelDefinition.Edit;
  63. end;
  64.  
  65. procedure TDemoMainDlg.FormActivate(Sender: TObject);
  66. begin
  67.     Table1.Open;
  68. end;
  69.  
  70. procedure TDemoMainDlg.bbtnFontClick(Sender: TObject);
  71. begin
  72.     if FontDialog1.Execute then
  73.        MailLabel1.Font := FontDialog1.Font;
  74. end;
  75.  
  76. procedure TDemoMainDlg.bbtnPrintClick(Sender: TObject);
  77. begin
  78.     if PrintDialog1.Execute then
  79.        MailLabel1.Print;
  80. end;
  81.  
  82. procedure TDemoMainDlg.bbtnCloseClick(Sender: TObject);
  83. begin
  84.     Close;
  85. end;
  86.  
  87. end.
  88.